pacman::p_load(ggplot2, dplyr, magrittr, reshape)

data <- data.frame(x = 2:13, y1 = sample(120, 12) / 10, y2 = sample(120, 12) / 10, y3 = sample(120, 12) / 10)

x <- data[, 1] %>% as.numeric() %>% rep(ncol(data) - 1)

data <- data[, -1]
y <- melt(data)[, 2]

group <- melt(data)[, 1]

data <- data.frame(x = x, y = y, group = group)
ggplot(data) +
  geom_line(aes(x = x, y = y, group = group, color = group))

 # geom_point(aes(x = x, y = y, group = group, color = group))











